home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / kboot20.d64 / proc.1520driver < prev    next >
Text File  |  2009-01-23  |  2KB  |  88 lines
  1. 0010 //
  2. 0020 ╨╥╧├ PñOPEN(SA) ├╠╧╙┼─
  3. 0030   ╙┼╠┼├╘ ╧╒╘╨╒╘ "U6:/S"+╙╘╥$(SA)
  4. 0040 ┼╬─╨╥╧├ PñOPEN
  5. 0050 //
  6. 0060 ╨╥╧├ PñCLOSE ├╠╧╙┼─
  7. 0070   ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
  8. 0080 ┼╬─╨╥╧├ PñCLOSE
  9. 0090 //
  10. 0100 ╨╥╧├ PñCHAR(C$) 
  11. 0110   PñOPEN(6)
  12. 0120   ╨╥╔╬╘ 1
  13. 0130   PñOPEN(0)
  14. 0140   ╔╞ C$<>"" ╘╚┼╬
  15. 0150     ╨╥╔╬╘ C$,
  16. 0160   ┼╠╙┼ 
  17. 0170     ╨╥╔╬╘ C$
  18. 0180   ┼╬─╔╞ 
  19. 0190   PñCLOSE
  20. 0200 ┼╬─╨╥╧├ PñCHAR
  21. 0210 //
  22. 0220 ╨╥╧├ PñHOME 
  23. 0230   PñOPEN(1)
  24. 0240   ╨╥╔╬╘ "H"
  25. 0250   PñCLOSE
  26. 0260 ┼╬─╨╥╧├ PñHOME
  27. 0270 //
  28. 0280 ╨╥╧├ PñINIT 
  29. 0290   PñOPEN(1)
  30. 0300   ╨╥╔╬╘ "I"
  31. 0310   PñCLOSE
  32. 0320 ┼╬─╨╥╧├ PñINIT
  33. 0330 //
  34. 0340 ╨╥╧├ PñMOVETO(X,Y) 
  35. 0350   PñOPEN(1)
  36. 0360   ╨╥╔╬╘ "M";X;├╚╥$(29);Y;├╚╥$(29)
  37. 0370   PñCLOSE
  38. 0380 ┼╬─╨╥╧├ PñMOVETO
  39. 0390 //
  40. 0400 ╨╥╧├ PñDRAWTO(X,Y) 
  41. 0410   PñOPEN(1)
  42. 0420   ╨╥╔╬╘ "D";X;├╚╥$(29);Y;├╚╥$(29)
  43. 0430   PñCLOSE
  44. 0440 ┼╬─╨╥╧├ PñDRAWTO
  45. 0450 //
  46. 0460 ╨╥╧├ PñMOVE(X,Y) 
  47. 0470   PñOPEN(1)
  48. 0480   ╨╥╔╬╘ "R";X;├╚╥$(29);Y;├╚╥$(29)
  49. 0490   PñCLOSE
  50. 0500 ┼╬─╨╥╧├ PñMOVE
  51. 0510 //
  52. 0520 ╨╥╧├ PñDRAW(X,Y) 
  53. 0530   PñOPEN(1)
  54. 0540   ╨╥╔╬╘ "J";X;├╚╥$(29);Y;├╚╥$(29)
  55. 0550   PñCLOSE
  56. 0560 ┼╬─╨╥╧├ PñDRAW
  57. 0570 //
  58. 0580 ╨╥╧├ PñRESET 
  59. 0590   PñOPEN(7)
  60. 0600   ╨╥╔╬╘ 
  61. 0610   PñCLOSE
  62. 0620 ┼╬─╨╥╧├ PñRESET
  63. 0630 //
  64. 0640 ╨╥╧├ PñCOLOR(COLOR) 
  65. 0650   PñOPEN(2)
  66. 0660   ╨╥╔╬╘ COLOR
  67. 0670   PñCLOSE
  68. 0680 ┼╬─╨╥╧├ PñCOLOR
  69. 0690 //
  70. 0700 ╨╥╧├ PñCHARSIZE(SIZE) 
  71. 0710   PñOPEN(3)
  72. 0720   ╨╥╔╬╘ SIZE
  73. 0730   PñCLOSE
  74. 0740 ┼╬─╨╥╧├ PñCHARSIZE
  75. 0750 //
  76. 0760 ╨╥╧├ PñROTCHAR(ROT) 
  77. 0770   PñOPEN(4)
  78. 0780   ╨╥╔╬╘ ROT
  79. 0790   PñCLOSE
  80. 0800 ┼╬─╨╥╧├ PñROTCHAR
  81. 0810 //
  82. 0820 ╨╥╧├ PñSCRIBE(BRK) 
  83. 0830   PñOPEN(5)
  84. 0840   ╨╥╔╬╘ BRK
  85. 0850   PñCLOSE
  86. 0860 ┼╬─╨╥╧├ PñSCRIBE
  87. 0870 //
  88.